home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / J-M / Kids El Verbo Simple.cpt / El Verbo Simple 1.1 / background_2629.txt < prev    next >
Text File  |  1990-11-11  |  23KB  |  1,019 lines
  1. -- background: 2629 from stack: in.1
  2. -- bmap block id: 5537
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11. on OpenCard
  12.   SetCard
  13. end OpenCard
  14.  
  15. on newCard
  16.   set cursor to busy
  17.   set lockscreen to true
  18.   put 215 into Recty
  19.   put 229 into Recth
  20.   put 222 into Locy
  21.   DoMenu "New Button"
  22.   Set visible of button "New Button" to False
  23.   Set showName of button "New Button" to False
  24.   Set style of button "New Button" to checkBox
  25.   Set autoHilite of button "New Button" to true
  26.   Set visible of button "New Button" to true
  27.   DoMenu "Cut Button"
  28.   repeat with count=1 to 3
  29.     DoMenu "Paste Button"
  30.     Set Rect of button "New Button" to 349,Recty,366,Recth
  31.     Set Loc of button "New Button" to 357,Locy
  32.     put "Irregular" && count into ButtonName
  33.     Set name of button "New Button" to ButtonName
  34.     Add 17 to Recty
  35.     Add 17 to Recth
  36.     Add 17 to Locy
  37.     set cursor to busy
  38.   end repeat
  39.   choose browse tool
  40.   set lockscreen to false
  41. end newCard
  42.  
  43. on deleteCard
  44.   RefreshScreen
  45. end deleteCard
  46.  
  47. on MouseUp
  48.   If (the ClickH>349) and (the ClickH<367) and (the ClickV>214) and (the ClickV<232) then
  49.     put "Present" into background field "Tense"
  50.     If hilite of card button "Irregular 1" is true then
  51.       DoIrregular Present
  52.     else
  53.       FormVerb 1
  54.     end if
  55.   else
  56.     If (the ClickH>349) and (the ClickH<367) and (the ClickV>232) and (the ClickV<249) then
  57.       put "Preterite" into background field "Tense"
  58.       if hilite of card button "Irregular 2" is true then
  59.         DoIrregular Preterite
  60.       else
  61.         FormVerb 2
  62.       end if
  63.     else
  64.       if the hilite of card button "Irregular 3" is true then
  65.         show background field "Irregular Participle"
  66.       else
  67.         hide background field "Irregular Participle"
  68.       end if
  69.     end if
  70.   end if
  71. end MouseUp
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81. -- part 17 (button)
  82. -- low flags: 00
  83. -- high flags: 0000
  84. -- rect: left=13 top=307 right=325 bottom=63
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Compound
  93. ----- HyperTalk script -----
  94. on mouseDown
  95.   putChoices "ComChoices","Pluperfect" &return& "Future Perfect" &return& "Present Perfect" &return& "Conditional Perfect" & return ,"Compound"
  96. end mouseDown
  97.  
  98. on mouseUp
  99.   hide background field "ComChoices"
  100.   set hilite of background button "Compound" to false
  101. end mouseUp
  102.  
  103. on mouseLeave
  104.   LocateMouse "ComChoices", "Compound"
  105. end mouseLeave
  106.  
  107.  
  108.  
  109.  
  110. -- part 18 (button)
  111. -- low flags: 00
  112. -- high flags: 2000
  113. -- rect: left=67 top=307 right=327 bottom=124
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Conditional
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   put "Conditional" into background field "Tense"
  125.   FormVerb 5
  126. end mouseUp
  127.  
  128.  
  129. -- part 19 (button)
  130. -- low flags: 00
  131. -- high flags: 2000
  132. -- rect: left=128 top=309 right=329 bottom=186
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Future
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   put "Future" into background field "Tense"
  144.   FormVerb 4
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 20 (button)
  150. -- low flags: 00
  151. -- high flags: 2000
  152. -- rect: left=191 top=313 right=331 bottom=242
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Imperfect
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   put "Imperfect Indicative" into background field "Tense"
  164.   FormVerb 3
  165. end mouseUp
  166.  
  167.  
  168.  
  169.  
  170.  
  171. -- part 21 (button)
  172. -- low flags: 00
  173. -- high flags: 2000
  174. -- rect: left=246 top=314 right=333 bottom=304
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Present
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   put "Present" into background field "Tense"
  186.   if hilite of card button "Irregular 1" is false then
  187.     FormVerb 1
  188.   else
  189.     put 1 into background field "SubjectRef"
  190.     DoIrregular Present
  191.   end if
  192. end mouseUp
  193.  
  194.  
  195.  
  196.  
  197. -- part 22 (button)
  198. -- low flags: 00
  199. -- high flags: 2000
  200. -- rect: left=309 top=317 right=335 bottom=370
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Preterite
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   put "Preterite" into background field "Tense"
  212.   if hilite of card button "Irregular 2" is false then
  213.     FormVerb 2
  214.   else
  215.     put 2 into background field "SubjectRef"
  216.     DoIrregular Preterite
  217.   end if
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part 23 (button)
  223. -- low flags: 00
  224. -- high flags: 0000
  225. -- rect: left=374 top=317 right=337 bottom=424
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: Progressive
  234. ----- HyperTalk script -----
  235. on mouseDown
  236.   PutChoices "ProgChoices", "Past" &return& "Future" &return& "Present" &return& "Conditional" &return, "Progressive"
  237. end mouseDown
  238.  
  239. on mouseUp
  240.   hide background field "ProgChoices"
  241.   set hilite of background button "Progressive" to false
  242. end mouseUp
  243.  
  244. on mouseLeave
  245.   LocateMouse "ProgChoices", "Progressive"
  246. end mouseLeave
  247.  
  248.  
  249.  
  250.  
  251.  
  252. -- part 24 (button)
  253. -- low flags: 00
  254. -- high flags: 0000
  255. -- rect: left=429 top=321 right=339 bottom=497
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Subjunctive
  264. ----- HyperTalk script -----
  265. on mouseDown
  266.   PutChoices "SubChoices", "Present" &return& "Imperfect" &return& "Pluperfect" &return& "Present Perfect" & return, "Subjunctive"
  267. end mouseDown
  268.  
  269. on mouseUp
  270.   hide background field "SubChoices"
  271.   set hilite of background button "Subjunctive" to false
  272. end mouseUp
  273.  
  274. on mouseLeave
  275.   LocateMouse "SubChoices", "Subjunctive"
  276. end mouseLeave
  277.  
  278.  
  279.  
  280.  
  281.  
  282. -- part 29 (field)
  283. -- low flags: 01
  284. -- high flags: 0001
  285. -- rect: left=40 top=123 right=160 bottom=172
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 21
  290. -- text size: 12
  291. -- style flags: 256
  292. -- line height: 16
  293. -- part name: Normal1
  294.  
  295.  
  296. -- part 30 (field)
  297. -- low flags: 01
  298. -- high flags: 0001
  299. -- rect: left=40 top=178 right=214 bottom=172
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 1
  303. -- font id: 21
  304. -- text size: 12
  305. -- style flags: 256
  306. -- line height: 16
  307. -- part name: Normal2
  308.  
  309.  
  310. -- part 31 (field)
  311. -- low flags: 01
  312. -- high flags: 0001
  313. -- rect: left=180 top=178 right=214 bottom=311
  314. -- title width / last selected line: 0
  315. -- icon id / first selected line: 0 / 0
  316. -- text alignment: 1
  317. -- font id: 21
  318. -- text size: 12
  319. -- style flags: 256
  320. -- line height: 16
  321. -- part name: Normal5
  322.  
  323.  
  324. -- part 32 (field)
  325. -- low flags: 01
  326. -- high flags: 0001
  327. -- rect: left=180 top=124 right=160 bottom=311
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 1
  331. -- font id: 21
  332. -- text size: 12
  333. -- style flags: 256
  334. -- line height: 16
  335. -- part name: Normal4
  336.  
  337.  
  338. -- part 33 (field)
  339. -- low flags: 01
  340. -- high flags: 0001
  341. -- rect: left=40 top=234 right=270 bottom=172
  342. -- title width / last selected line: 0
  343. -- icon id / first selected line: 0 / 0
  344. -- text alignment: 1
  345. -- font id: 21
  346. -- text size: 12
  347. -- style flags: 256
  348. -- line height: 16
  349. -- part name: Normal3
  350.  
  351.  
  352. -- part 34 (field)
  353. -- low flags: 01
  354. -- high flags: 0001
  355. -- rect: left=180 top=234 right=270 bottom=311
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 21
  360. -- text size: 12
  361. -- style flags: 256
  362. -- line height: 16
  363. -- part name: Normal6
  364.  
  365.  
  366. -- part 48 (field)
  367. -- low flags: 00
  368. -- high flags: 0001
  369. -- rect: left=346 top=119 right=147 bottom=470
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 0
  373. -- font id: 3
  374. -- text size: 9
  375. -- style flags: 0
  376. -- line height: 12
  377. -- part name: English
  378.  
  379.  
  380. -- part 52 (field)
  381. -- low flags: 00
  382. -- high flags: 0000
  383. -- rect: left=30 top=63 right=95 bottom=318
  384. -- title width / last selected line: 0
  385. -- icon id / first selected line: 0 / 0
  386. -- text alignment: 0
  387. -- font id: 21
  388. -- text size: 24
  389. -- style flags: 24576
  390. -- line height: 32
  391. -- part name: Verb
  392.  
  393.  
  394. -- part 67 (button)
  395. -- low flags: 00
  396. -- high flags: 0000
  397. -- rect: left=429 top=286 right=306 bottom=449
  398. -- title width / last selected line: 0
  399. -- icon id / first selected line: 1013 / 1013
  400. -- text alignment: 1
  401. -- font id: 0
  402. -- text size: 12
  403. -- style flags: 0
  404. -- line height: 16
  405. -- part name: Next
  406. ----- HyperTalk script -----
  407. on mouseUp
  408.   visual effect scroll right
  409.   go to next card of background id 2629
  410. end mouseUp
  411.  
  412.  
  413.  
  414.  
  415.  
  416. -- part 68 (button)
  417. -- low flags: 00
  418. -- high flags: 0000
  419. -- rect: left=406 top=286 right=306 bottom=426
  420. -- title width / last selected line: 0
  421. -- icon id / first selected line: 1014 / 1014
  422. -- text alignment: 1
  423. -- font id: 0
  424. -- text size: 12
  425. -- style flags: 0
  426. -- line height: 16
  427. -- part name: Prev
  428. ----- HyperTalk script -----
  429. on mouseUp
  430.   visual effect scroll left
  431.   go to prev card of bg id 2629
  432. end mouseUp
  433.  
  434.  
  435.  
  436.  
  437. -- part 69 (button)
  438. -- low flags: 00
  439. -- high flags: 0000
  440. -- rect: left=339 top=286 right=306 bottom=363
  441. -- title width / last selected line: 0
  442. -- icon id / first selected line: 11045 / 11045
  443. -- text alignment: 1
  444. -- font id: 0
  445. -- text size: 12
  446. -- style flags: 0
  447. -- line height: 16
  448. -- part name: Home
  449. ----- HyperTalk script -----
  450. on mouseUp
  451.   lock screen
  452.   RefreshScreen
  453.   go home
  454.   unlock screen with visual effect dissolve
  455. end mouseUp
  456.  
  457.  
  458.  
  459. -- part 92 (button)
  460. -- low flags: 00
  461. -- high flags: 0000
  462. -- rect: left=452 top=285 right=308 bottom=478
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 1012 / 1012
  465. -- text alignment: 1
  466. -- font id: 0
  467. -- text size: 12
  468. -- style flags: 0
  469. -- line height: 16
  470. -- part name: 
  471. ----- HyperTalk script -----
  472. on mouseUp
  473.  
  474.   -- Global PrevTense
  475.   -- RefreshScreen
  476.   visual effect dissolve
  477.   go to card id 73808
  478. end mouseUp
  479.  
  480.  
  481.  
  482. -- part 99 (field)
  483. -- low flags: 80
  484. -- high flags: 0001
  485. -- rect: left=40 top=123 right=160 bottom=172
  486. -- title width / last selected line: 0
  487. -- icon id / first selected line: 0 / 0
  488. -- text alignment: 1
  489. -- font id: 21
  490. -- text size: 12
  491. -- style flags: 256
  492. -- line height: 16
  493. -- part name: Present1
  494.  
  495.  
  496. -- part 100 (field)
  497. -- low flags: 80
  498. -- high flags: 0001
  499. -- rect: left=40 top=178 right=214 bottom=172
  500. -- title width / last selected line: 0
  501. -- icon id / first selected line: 0 / 0
  502. -- text alignment: 1
  503. -- font id: 21
  504. -- text size: 12
  505. -- style flags: 256
  506. -- line height: 16
  507. -- part name: Present2
  508.  
  509.  
  510. -- part 101 (field)
  511. -- low flags: 80
  512. -- high flags: 0001
  513. -- rect: left=40 top=234 right=270 bottom=172
  514. -- title width / last selected line: 0
  515. -- icon id / first selected line: 0 / 0
  516. -- text alignment: 1
  517. -- font id: 21
  518. -- text size: 12
  519. -- style flags: 256
  520. -- line height: 16
  521. -- part name: Present3
  522.  
  523.  
  524. -- part 102 (field)
  525. -- low flags: 80
  526. -- high flags: 0001
  527. -- rect: left=180 top=124 right=160 bottom=311
  528. -- title width / last selected line: 0
  529. -- icon id / first selected line: 0 / 0
  530. -- text alignment: 1
  531. -- font id: 21
  532. -- text size: 12
  533. -- style flags: 256
  534. -- line height: 16
  535. -- part name: Present4
  536.  
  537.  
  538. -- part 103 (field)
  539. -- low flags: 80
  540. -- high flags: 0001
  541. -- rect: left=180 top=178 right=214 bottom=311
  542. -- title width / last selected line: 0
  543. -- icon id / first selected line: 0 / 0
  544. -- text alignment: 1
  545. -- font id: 21
  546. -- text size: 12
  547. -- style flags: 256
  548. -- line height: 16
  549. -- part name: Present5
  550.  
  551.  
  552. -- part 104 (field)
  553. -- low flags: 80
  554. -- high flags: 0001
  555. -- rect: left=180 top=234 right=270 bottom=311
  556. -- title width / last selected line: 0
  557. -- icon id / first selected line: 0 / 0
  558. -- text alignment: 1
  559. -- font id: 21
  560. -- text size: 12
  561. -- style flags: 256
  562. -- line height: 16
  563. -- part name: Present6
  564.  
  565.  
  566. -- part 110 (field)
  567. -- low flags: 80
  568. -- high flags: 0001
  569. -- rect: left=40 top=234 right=270 bottom=172
  570. -- title width / last selected line: 0
  571. -- icon id / first selected line: 0 / 0
  572. -- text alignment: 1
  573. -- font id: 21
  574. -- text size: 12
  575. -- style flags: 256
  576. -- line height: 16
  577. -- part name: Preterite3
  578.  
  579.  
  580. -- part 108 (field)
  581. -- low flags: 80
  582. -- high flags: 0001
  583. -- rect: left=40 top=123 right=160 bottom=172
  584. -- title width / last selected line: 0
  585. -- icon id / first selected line: 0 / 0
  586. -- text alignment: 1
  587. -- font id: 21
  588. -- text size: 12
  589. -- style flags: 256
  590. -- line height: 16
  591. -- part name: Preterite1
  592.  
  593.  
  594. -- part 130 (field)
  595. -- low flags: 80
  596. -- high flags: 4000
  597. -- rect: left=353 top=264 right=279 bottom=470
  598. -- title width / last selected line: 0
  599. -- icon id / first selected line: 0 / 0
  600. -- text alignment: 0
  601. -- font id: 3
  602. -- text size: 9
  603. -- style flags: 0
  604. -- line height: 12
  605. -- part name: Irregular Participle
  606.  
  607.  
  608. -- part 139 (field)
  609. -- low flags: 80
  610. -- high flags: 0000
  611. -- rect: left=348 top=162 right=177 bottom=371
  612. -- title width / last selected line: 0
  613. -- icon id / first selected line: 0 / 0
  614. -- text alignment: 0
  615. -- font id: 3
  616. -- text size: 12
  617. -- style flags: 0
  618. -- line height: 16
  619. -- part name: SubjectRef
  620. ----- HyperTalk script -----
  621. -- This Field Is Used To Store The Tense Number Of The Card
  622. -- It Is Also Used In By The Quizzer.
  623.  
  624. -- DO NOT DELETE!
  625.  
  626.  
  627. -- part 49 (field)
  628. -- low flags: 01
  629. -- high flags: 0001
  630. -- rect: left=346 top=160 right=187 bottom=470
  631. -- title width / last selected line: 0
  632. -- icon id / first selected line: 0 / 0
  633. -- text alignment: 0
  634. -- font id: 3
  635. -- text size: 9
  636. -- style flags: 0
  637. -- line height: 12
  638. -- part name: Tense
  639.  
  640.  
  641. -- part 89 (field)
  642. -- low flags: 81
  643. -- high flags: 0004
  644. -- rect: left=374 top=270 right=323 bottom=432
  645. -- title width / last selected line: 0
  646. -- icon id / first selected line: 0 / 0
  647. -- text alignment: 0
  648. -- font id: 3
  649. -- text size: 9
  650. -- style flags: 0
  651. -- line height: 12
  652. -- part name: ProgChoices
  653. ----- HyperTalk script -----
  654. on ManageResponse
  655.   Global MenuChoice
  656.   if MenuChoice is "Past" then
  657.     put "Past Progressive" into background field "Tense"
  658.     FormVerb 7
  659.   else
  660.     if MenuChoice is "Present" then
  661.       put "Present Progressive" into background field "Tense"
  662.       FormVerb 6
  663.     else
  664.       if MenuChoice is "Conditional" then
  665.         put "Conditional Progressive" into background field "Tense"
  666.         FormVerb 8
  667.       else if MenuChoice is "Future" then
  668.         put "Future Progressive" into background field "Tense"
  669.         FormVerb 9
  670.       end if
  671.     end if
  672.   end if
  673. end ManageResponse
  674.  
  675.  
  676.  
  677.  
  678.  
  679.  
  680. -- part 109 (field)
  681. -- low flags: 80
  682. -- high flags: 0001
  683. -- rect: left=40 top=178 right=214 bottom=172
  684. -- title width / last selected line: 0
  685. -- icon id / first selected line: 0 / 0
  686. -- text alignment: 1
  687. -- font id: 21
  688. -- text size: 12
  689. -- style flags: 256
  690. -- line height: 16
  691. -- part name: Preterite2
  692.  
  693.  
  694. -- part 111 (field)
  695. -- low flags: 80
  696. -- high flags: 0001
  697. -- rect: left=180 top=124 right=160 bottom=311
  698. -- title width / last selected line: 0
  699. -- icon id / first selected line: 0 / 0
  700. -- text alignment: 1
  701. -- font id: 21
  702. -- text size: 12
  703. -- style flags: 256
  704. -- line height: 16
  705. -- part name: Preterite4
  706.  
  707.  
  708. -- part 112 (field)
  709. -- low flags: 80
  710. -- high flags: 0001
  711. -- rect: left=180 top=178 right=214 bottom=311
  712. -- title width / last selected line: 0
  713. -- icon id / first selected line: 0 / 0
  714. -- text alignment: 1
  715. -- font id: 21
  716. -- text size: 12
  717. -- style flags: 256
  718. -- line height: 16
  719. -- part name: Preterite5
  720.  
  721.  
  722. -- part 113 (field)
  723. -- low flags: 80
  724. -- high flags: 0001
  725. -- rect: left=180 top=234 right=270 bottom=311
  726. -- title width / last selected line: 0
  727. -- icon id / first selected line: 0 / 0
  728. -- text alignment: 1
  729. -- font id: 21
  730. -- text size: 12
  731. -- style flags: 256
  732. -- line height: 16
  733. -- part name: Preterite6
  734.  
  735.  
  736. -- part 98 (field)
  737. -- low flags: 81
  738. -- high flags: 0004
  739. -- rect: left=13 top=258 right=311 bottom=113
  740. -- title width / last selected line: 0
  741. -- icon id / first selected line: 0 / 0
  742. -- text alignment: 0
  743. -- font id: 3
  744. -- text size: 9
  745. -- style flags: 0
  746. -- line height: 12
  747. -- part name: ComChoices
  748. ----- HyperTalk script -----
  749. On ManageResponse
  750.   Global MenuChoice
  751.   put MenuChoice into background field "Tense"
  752.   If MenuChoice is "Present Perfect" then
  753.     FormVerb 10
  754.   else
  755.     If MenuChoice is "Pluperfect" then
  756.       FormVerb 11
  757.     else
  758.       if MenuChoice is "Future Perfect" then
  759.         FormVerb 12
  760.       else
  761.         if MenuChoice is "Conditional Perfect" then
  762.           FormVerb 13
  763.         end if
  764.       end if
  765.     end if
  766.   end if
  767. end ManageResponse
  768.  
  769.  
  770.  
  771.  
  772.  
  773.  
  774.  
  775. -- part 131 (field)
  776. -- low flags: 81
  777. -- high flags: 0004
  778. -- rect: left=428 top=270 right=325 bottom=510
  779. -- title width / last selected line: 0
  780. -- icon id / first selected line: 0 / 0
  781. -- text alignment: 0
  782. -- font id: 3
  783. -- text size: 9
  784. -- style flags: 0
  785. -- line height: 12
  786. -- part name: SubChoices
  787. ----- HyperTalk script -----
  788. On ManageResponse
  789.   Global MenuChoice
  790.   put MenuChoice && "Subjunctive" into background field "Tense"
  791.   If MenuChoice is "Present" then
  792.     if the hilite of card button "Irregular 1" is true then
  793.       get background field "Present1"
  794.       if Length(it)<2 then
  795.         put "To form the Present Subjunctive, you must first" && "enter the irregular conjugation of the Present Tense." into background field "ConjError"
  796.         show background field "ConjError"
  797.       else
  798.         FormVerb 14
  799.       end if
  800.     else
  801.       FormVerb 14
  802.     end if
  803.   else
  804.     If MenuChoice is "Imperfect" then
  805.       if the hilite of card button "Irregular 2" is true then
  806.         get background field "Preterite6"
  807.         if Length(it)<2 then
  808.           put "To form the Imperfect Subjunctive, you must first" && "enter the irregular conjugation of the Preterite." into background field "ConjError"
  809.           show background field "ConjError"
  810.         else
  811.           FormVerb 15
  812.         end if
  813.       else
  814.         FormVerb 15
  815.       end if
  816.     else
  817.       if MenuChoice is "Present Perfect" then
  818.         FormVerb 16
  819.       else
  820.         if MenuChoice is "Pluperfect" then
  821.           FormVerb 17
  822.         end if
  823.       end if
  824.     end if
  825.   end if
  826. end ManageResponse
  827.  
  828.  
  829.  
  830.  
  831.  
  832. -- part 135 (button)
  833. -- low flags: 00
  834. -- high flags: 0000
  835. -- rect: left=40 top=276 right=303 bottom=112
  836. -- title width / last selected line: 0
  837. -- icon id / first selected line: 0 / 0
  838. -- text alignment: 1
  839. -- font id: 0
  840. -- text size: 12
  841. -- style flags: 0
  842. -- line height: 16
  843. -- part name: 
  844. ----- HyperTalk script -----
  845. on mouseUp
  846.   push this card
  847.   get background field "SubjectRef"
  848.   visual effect dissolve
  849.   if it is 1 then go to card id 68845
  850.   if it is 2 then go to card id 68487
  851.   if it is 3 then go to card id 67473
  852.   if it is 4 then go to card id 67230
  853.   if it is 5 then go to card id 68079
  854.   if it is 6 then go to card id 62160
  855.   if it is 7 then go to card id 62630
  856.   if it is 8 then go to card id 63114
  857.   if it is 9 then go to card id 63298
  858.   if it is 10 then go to card id 59196
  859.   if it is 11 then go to card id 60063
  860.   if it is 12 then go to card id 60219
  861.   if it is 13 then go to card id 60935
  862.   if it is 14 then go to card id 66509
  863.   if it is 15 then go to card id 65165
  864.   if it is 16 then go to card id 65477
  865.   if it is 17 then go to card id 66271
  866. end mouseUp
  867.  
  868.  
  869.  
  870. -- part 136 (button)
  871. -- low flags: 00
  872. -- high flags: 0000
  873. -- rect: left=191 top=276 right=300 bottom=312
  874. -- title width / last selected line: 0
  875. -- icon id / first selected line: 0 / 0
  876. -- text alignment: 1
  877. -- font id: 0
  878. -- text size: 12
  879. -- style flags: 0
  880. -- line height: 16
  881. -- part name: 
  882. ----- HyperTalk script -----
  883. on mouseUp
  884.   answer "Alphabetize cards using:" with "Spanish" or "English" or "Cancel"
  885.   if it is not "Cancel" then
  886.     lock screen
  887.     set cursor to watch
  888.     if it is "English" then
  889.       sort ascending text by background field "English"
  890.     else
  891.       if it is "Spanish" then
  892.         sort ascending text by background field "Verb"
  893.       end if
  894.     end if
  895.     go to first card of bg id 2629
  896.     unlock screen
  897.   end if
  898. end mouseUp
  899.  
  900.  
  901.  
  902.  
  903.  
  904.  
  905. -- part 137 (button)
  906. -- low flags: 00
  907. -- high flags: 0000
  908. -- rect: left=118 top=276 right=302 bottom=181
  909. -- title width / last selected line: 0
  910. -- icon id / first selected line: 0 / 0
  911. -- text alignment: 1
  912. -- font id: 0
  913. -- text size: 12
  914. -- style flags: 0
  915. -- line height: 16
  916. -- part name: Look For
  917. ----- HyperTalk script -----
  918. function LocateText SearchStr
  919. Global CardRef
  920. find whole SearchStr
  921. if the Result is "Not Found" then
  922.   return the result
  923. else
  924.   if the id of this background is 2629 then
  925.     if (background field "Verb" contains SearchStr) or (background field "English" contains SearchStr) then
  926.       put the id of this card into CardRef
  927.       return "Found"
  928.     else
  929.       return "Not Found"
  930.     end if
  931.   else
  932.     go to next card
  933.   end if
  934. end if
  935. end LocateText
  936.  
  937. on mouseUp
  938.   Global Target, FmrTarget, CardRef, FmrCardRef
  939.   ask "Enter verb or definition to look for." with FmrTarget
  940.   if it is not empty then
  941.     lock screen
  942.     put it into Target
  943.     get the id of this card
  944.     if (FmrCardRef is it) and (FmrTarget is Target) then go to next card
  945.     repeat
  946.       set cursor to busy
  947.       get  LocateText(Target)
  948.       if it is "Not Found" then
  949.         put empty into FmrTarget
  950.         beep
  951.         exit repeat
  952.       else
  953.         if it is "Found" then
  954.           if (Target is FmrTarget) and (CardRef is FmrCardRef) then
  955.             put empty into FmrTarget
  956.             beep
  957.           else
  958.             put Target into FmrTarget
  959.             put the id of this card into FmrCardRef
  960.           end if
  961.           exit repeat
  962.         end if
  963.       end if
  964.     end repeat
  965.     unlock screen
  966.   end if
  967. end mouseUp
  968.  
  969.  
  970.  
  971.  
  972. -- part 140 (button)
  973. -- low flags: 00
  974. -- high flags: 0000
  975. -- rect: left=366 top=286 right=306 bottom=404
  976. -- title width / last selected line: 0
  977. -- icon id / first selected line: 0 / 0
  978. -- text alignment: 1
  979. -- font id: 0
  980. -- text size: 12
  981. -- style flags: 0
  982. -- line height: 16
  983. -- part name: Print
  984. ----- HyperTalk script -----
  985. on mouseUp
  986.   answer "Print this card?" with "Yes" or "No"
  987.   if it is "Yes" then print card
  988. end mouseUp
  989.  
  990.  
  991.  
  992.  
  993. -- part 141 (field)
  994. -- low flags: 81
  995. -- high flags: 0002
  996. -- rect: left=90 top=148 right=218 bottom=285
  997. -- title width / last selected line: 0
  998. -- icon id / first selected line: 0 / 0
  999. -- text alignment: 0
  1000. -- font id: 21
  1001. -- text size: 12
  1002. -- style flags: 256
  1003. -- line height: 16
  1004. -- part name: ConjError
  1005. ----- HyperTalk script -----
  1006. on mouseUp
  1007.   Global MenuChoice
  1008.   hide background field "ConjError"
  1009.   if MenuChoice is "Present" then
  1010.     put "Present" into background field "Tense"
  1011.     DoIrregular Present
  1012.   else
  1013.     put "Preterite" into background field "Tense"
  1014.     DoIrregular Preterite
  1015.   end if
  1016. end mouseUp
  1017.  
  1018.  
  1019.